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17820 --- CLOCK/4962 P/N=1635396 EC=755285 PAGE 03 17820 --- CLOCK/4 962 P/N= 1635396 EC=755285 PAGE O3A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM COPP 1976 LOCTR ORJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
002630 0000 536 AL2 (DUMMY) 0027B8 0000 653+CSTL7 DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 
S37 RR ROI RIOR I ICI I IR I Rk ak ake ak ak ke ako kc 2k 0027BA 0000 6544+CSTL8 DC CYCLE STEAL WD 8, DEVICE DEPEND 
538 OR ORR ROR IGRI I III IR a aa aka af ako oka aig ako akc ok oie ke ae ae ke ak ke a ke a aie ak 6S55+* 
539 ** 2K 0027BC 0000 656+5SUBN DC LAST SUBROUTINE ADDRESS USED 
540 ** MESSAGE TABLE ak 0027BE 00000000 657+$DATA DC 2k OPTIONAL DATA 
541 ** eK 0027C2 0021 658+$INTL DC X'0024" TNTERRUPT LEVEL REQUESTED 
Su 3 IO III IRI 2 I RII III II RII I 2k RR RR kk ie ie oe oc 0027c4 0000 6594+TUPRTN DC A (*-* TEST JNTT RETUPN ADPS TO MDT 
543 eR tk a OK kok tk tik Ro kK dO ka kk oe ke ok ic 0027C6 O0B2 660+4+SDVID DC X"OOR2! DEVICE ID 
002632 544 FOO0004 EQU * 0027C8 19D0 661+SVCAL DC A (DEVADD) ADFS OF DEVICE ADDRESS 
002632 0005 545 DC AL2 (0005) 0027CA 0000 662+ DC A (*-*) IBIS CYLINDER ADDRESS 
002-34 0028 546 DC A (0040) 663+* 
002636 DICHSDTD3C1IC3C54OF 547 DC CLOO4O'REPLACE 4962 CARDS A-A1C2,A-A1D2,ATTACH.! 664+* THIS TEST WNIT WILL RETURN TC MDI WITHOUT DOING ANY PPOGPRAM 
O0O0265E 002E 548 DC A (0046) 665+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
002660 CIDSE2ZD7CS5SC3E340C 549 DC CLOOYE'INSPECT AND RESEAT CABLES EFTWEEN ATTACH. AND ! 666+* STILL VALID BUT A DIFFEPENT TEST IS TO BE PEFFORMED. 
Q00268E 0024 550 DC A (0036) 667+* 
002690 F4FOFE6F2Z4B40D9C5D 551 DC CLO0036'4962. REPLACE A-A1G2, A-A1H2. BEFOPE! 0027CC 4020 278C 3C02 668+T3C0O2 MVWI ee ee SET UP TEST UNIT ID 
OO26B4 002C 552 DC A(OO4U) 0027D2 5709 669+ ebay (FT) RETURN TO MDI SUPVR 
002686 DICSD7TD3C1C3C9D5C 553 DC CLOOY4"REPLACING CARDS, CHECK 4962 VOLTAGE, SEE MAP!* 671 
0026EF2 001C 554 Dc A (0028) 672 eer re er rere POE EE EEE EEE ETE EE eT nor nr reer 
OO26E4 FT7F8F8F540C6D6D94 555 DC C10028'7885 FOP CHECK OUT PROCEDURF'! 73 * * 
002700 556 FO0011 EQU % 574 * EQUATED NAMES FOR SUPPORTED SVC'S * 
002700 0002 557 DC AL2 (0002) 675 * * 
002702 OO2K 558 pc A (0042) 676 FCC CII III II III OR IOI IK a oak ake ak kak ak ak ie akc ake ak ak ake fe ake ake ak ak 
002704 D9C5D7D3C1C3C540F 559 DC CLOO42"*REPLACE 4962 ATTACHMENT CAPD, INSPECT AND ! 000000 677 OUT EQU 0 OUT SVC 
OO0O272E OO2A 560 DC A (0042) 000001 €78 OUTIN EQU OUTIN SVC 
002730 DIC5SE2C5C1E340C3C 561 DC CLOO4Y2'RESEAT CABLES BETWEEN ATTACHMENT AND 4962 ! 000002 €79 IDLE EQU 2 IDLE SVC 
OO275A 562 F00127 EQU x 000003 680 ASCII EQU 3 HEX TO ASCIY SVC 
00275A 0001 563 DC AL2 (0001) 000004 681 CHNGE EQU 4 CHANGE LEVEL SVC 
00275c 0014 564 DC A (0020) 000005 682 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
00275E CTDE4OE3DE64O0D4CID 565 DC CLOO20'GO TO MAP7802,EP=A. ! 000006 683 EXIT EQU 6 EXTT SVC 
002772 566 FO00130 EQU 7 000007 684% TERM EQU 7 TERMINATE SVC 
002772 0001 567 DC ee ae 000008 685 KESET EQU 8 RESET DEVICE SVC 
002774 0010 568 DC A (0016) 000009 686 PID EQU 9 READ ID SVC 
002776 D4CID74SOF7F8F2F04 569 DC CLOO16"MAP 7820 CORRECT! OOOOOA 687 START EQU 10 START CYCLE STEAL SVC 
570 DIT OOB2 QOO0OOB k88 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
002786 0000 572+OPTN1 DC X*'0000! PROGPAM OPTION CONTROL WOFD 1 O0000DC 689 PREP FEOQU 12 PPEPAPE DFVICE SVC 
573+* 00000D 690 READO EOQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
002788 0000 57T44OPTN2 DC x*0000! PROGRAM OPTION CONTROL WOPD 2 QOOOOO0OE 691 READ1 EQOU 14 READ WITH FUNCTION BIT 3 ON SVC 
575+4+* BIT HEX OOO00F 692 PSTAT EQU 15 READ STATUS SVC 
000010 STE+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 000010 3993 WRITO EOU 16 WRITF WITH FUNCTION BIT 3 OFF SVC 
000011 577+B49 EQU 17 1 4 * 000011 694 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
000012 578+B50 EQU 18 2 2 * THESE BYTS APE USED WITH THF 000012 €95 CTRL EQJ 18 CONTROL SVC 
000013 579+B51 EOU 19 3 1 * SECOND OPTION WD AND APE TO 000013 €96 RICB EQU 19 FFLEASE INTERUPT CONTROL BLOCK SVC 
000014 580+B52 EQTU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER 000014 697 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
090015 5814+B53 EQU 21 5 4 * : 000015 698 HIO EQU 21 HALT ALI I/0 
000016 582+B54 EQU 22 6 2 * 000015 699 RECSD EQU 22 REQUEST USE OF DCP DISK SVC 
000017 5834+B55 EQU 23 v4 1 * 000017 700 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
000018 584+B56 EQU 24 8 8 * 000018 701 HALT EQU 24 HALT SVC 
000019 585+B57 FOU 25 9 4 * 000019 702 ETOH EQU 25 EBCDIC TO HEX SVC Spee 
QOOO1A 586+858 EQU 26 10 2 x OOOOT1A 703 HTOE EQU 26 HEX TO ERCDIC SVC TRING 
00001B 587+B59 a 27 11 1 * 000018 7O4 ATOH EQU 27 ASCII TO HEX SVC RING 
00001C 588+B460 EQU 28 12 8 * 00001C 705 HIOA EQU 28 HEX TO ASCII SVC STRING 
00001D 589+B61 EQU 29 13 4 * 00001D 706 ETOA FEQU 29 EBCDIC TO ASCII $ . (Sar 
QOOQ01E 590+B62 EQU 30 14 2 * OO001E 707 ATOE EQU 30 ASCII TO EBCDIC SV STRIN 
OOO0O1TF 591+B63 ECU 31 15 1 * OO001F 708 READI EQU 31 PEAD DATA SETS FOP “MDIZUTIT 
QOOO01E 592+CH EQU 30 14 2 CHARACTER SUPPLIED 000020 709 WRITI EQU 32 WFITE DATA SETS FOR OUTIL 
O0001F 5934+CMP EOU 31 15 1 COMPARE OPFRATION T11 oROIIR IIC IICIGI  ii ok ior ra kak gkko ak ak ak ak ak kak ok ak ike ik 
00278A 0000 595+OPTN3 DC x *0000! PROGRAM OPTION CONTFOL WORD 3 712 * * 
596+* 713 * FQUATES USED BY TU"S AS CONSTANTS * 
597+* QO MYSTERY INTERRUPT MT 8 CS STATUS IN PROGRESS CS 714 * * 
598+* 1 ERFPOR INTERPUPT PR 9 CS AVAILABLE CSA 715 IG IO OK I i loi ak akc aki ak katate ak kik ak ak ake ak at teak ok 
599+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERF CE OOOO4E 716 PLUS EQU Cle PLUS CHAR 
600+* 3 INTERRUPT PECEIVED IN 11 ISEB BITS ON (1-7) ISBON 000060 717 MINUS EQU Cre" MINUS CHAR 
601+* 000000 719 ZERO EQU 0 
602+* 4 EXPECTED EFR/SATTENT XE 12 TEST UNIT RESULTS VOTD NG 000001 720 ONE EQU 1 
603+* 5 HAPD ERPOF FOUND HE 13. OTO CC EPROR TOCC 000002 721 TWO EQU 2 
604+* 6 WFONG INTR LEVEL SLE 14 NO INTERRUPT NOTN 000003 722 THREE EQOU 3 
605+* 7 NO INTR EXPECTED NI 15 INTEPRUPT CC ERROR TNCC 000004 723 FOUR EQU 4 
606+* BIT HEX 090005 724 FIVE EQU 5 
000020 6074+MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000005 d2) Silk EQU 6 
000021 608+ER EQU 33 1 4 ERROR RECEIVED ON INTEPPUPT 000007 726 SEVEN EQU 7 
000022 6094XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000008 727 EIGHT EQU 8 
000023 510+IN EQU 32 3 1 INTERRUPT RECEIVED CONTROL BIT 000009 728 NINE EQU | 
000024 611+XE EQU 36 4 8 EXPECTED ERFPOR RESPONSE OOOOOA 729 TEN EQU 10 
000025 612+HE EQU ef 5 4 HARD ERROR, 8 RETRIES 00000B 730 ELEVN EQOU 11 11 
000026 613+5LE EQU 38 6 2 INTERRUPT ON WRONG LEVEL EPROP 00000C 731 TWELV EQD 12 12 
000027 6144+NT EQU 39 7 1 NO INTERRUPT EXPECTED E 00000D 732 THRIN EQU 13 13 
0000 28 615+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS OOOOOF 733 FIVIN EQU 15 15 
000029 616+CSA EQU 44 9 Q CYCLE STEAL AVAILABLE 000010 734 SIXTN EQU 16 16 
OOOO2A 6174+CE EQU 42 10 Z CYCLE STEAL STATUS INEPRRUPT EPPOR 000020 735 THRY2 EQU 32 32 
00002B 618+ISBON EQU 43 11 1 ISB BITS ON (1-7 000040 736 SIXTY EOU 64 64 
00002C 6194NG EQU 44 12 8 TEST UNIT RESULTS NO GOOD 000080 737 ONE28 EQU 128 128 
00002D 629+IOCC EQOU 45 13 4 OIO CC EFROR 000100 7138 TWO56 EQU 256 256 
00002E 621+NOIN EQU 46 14 2 NO INTEFRUPT 000400 739 ONEK EQU 1024 1024 
00002F 622+INCC EQU 47 15 1 INTERRUPT CC ERROR 000800 740 TWOK EQU 2048 2048 
623+* 000C00 741 THREK EQU 3072 3072 
624+4+* COMMON BUFFER FOR PRINTING DATA 001000 742 FOURK EQU 4096 4096 
625+* FFFFFF 744 M1 EQU = =" 
00278C 0000 627+$TUID DC A (*-+* re UNIT IDENTIFICATION FRFEFE 745 M2 EQU “2 =2 
Q00278E 0000 628+S5I0IN DC A (*-* ZO AND INTP CONDITION CODES FFFFFD 746 M3 EQU =3 3 
002790 0000 §629+SISB DC A (*-* R INTR STATUS BYTE & DEV ADPS FFFFFC 747 MY EQu -4 -4 
002792 0000 630+LSTIO DC A (*-* ADRS OF LAST I/0 + & BYTES TY RRR RIOR IRI RII IO II RR IR ROI RII IOI RII ROR ROR RI IRC RII ROR OK KC ic ak 
002794 0000 631+DEV1 DC A (*=* DEVICE DEPENDENT DATA 750 * * 
002796 0000 632+DEV2 DC A (*-* * 751 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
002798 0000 633+DEV3 DC A (*¥-* * L520* BEGINNING OF THE RYTE TO EACH RIT IN THE WORD OF SWITCHES. * 
00279A 0000 f34+DEV4 DC A (*-* * 153 * * 
002794 6354SCTID EQU DEV1 READ ID BUFFER FOR IBIS & TERN 754 ROR OR I RII I RR ok iki RGR IR dari iok ka goo 
00279C o36+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 000000 755 BSO EQU 0 
00279C Q000 637+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WOPD 000001 756 BS1 EQU 1 
00279F 0000 h38+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000002 7157 BS2 EQU 2 
0027A0 0000 639+#DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000003 758 BS3 EQU 3 
0027A2 0000 6404+DCB4 DC A (¥-* LAST DCB TABLE, DEV DEP WORD 000004 759 BS4& EQU 4 
0027A4 0000 6414+#DCB5 DC A.C e=* LAST DCB TABLE, DEV DEP WORD 000005 760 BS5 ERs 5 
Q0027A6 Q000 642+DCB6 DC A (*-* LAST DCP TABLE, CHAIN ADRS 000006 761 BS6 EQU 6 
0027A8 0009 643+DCB7 DC A (*-* LAST DCP TABLE, BYTE COUNT 000007 762 BS7 EQU 7 
OO27AA 0000 6444+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000008 763 BS8 EQU 8 
645+* 000009 764 BSI EOd 9 
0027AC 646+CSBUF EQU * CYCLE STEAL DATA BUFFER OOOOOA 765 BS10  EQU 10 
0027AC 0000 6474CSTL1 DC A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 00000B 766 BS11 EOQU 11 
QOO27AE 0000 6484CSTL2 DC A (*-* CYCLE STFAL WD 2, fEVICE DEPEND 00000C 767 BS12 EQU 12 
0027B0 9000 6494+CSTL3 DC A (¥*-* CYCLE STEAL WD 3, DEVICE DEPEND Q00000D 768 BS13 EQU 13 
0027B2 0000 6504+CSTLY DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND QOOOO00F 769 BS14 at 14 
0027B4 0000 6514#CSTLS DC A (*-* CYCLE STEAL WD 5, DEVICE DEPFND OOO00F 770 BS15 EQU 15 
0027B6 0000 6524#CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPFND T72 COPY CK78DCB O1DEC76 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
773 ** (T78DCB 13AUG76 887 * 
WMS EST SS SSCS SSS ES SSL ESS SSS SSL SSS STS SSS TS SSCL SL SSCL OLS SS SSS SCL SSC SPS SL es 002874 0003 888 WKDCB DC x'0003! CONTROL WORD 
175 * 002876 0000 889 DC x'0000°8 NOT USED 
7116 * DCB TABLES AND pc's 002878 0000 890 DC A (*-* O-7 = PHYSICAL SECTOR # MINUS ONE 
777 * 00287A 0000 891 DC A (*-* NOT USED 
178 ORI IG ROR I III IO IOI III IR III I III I iki tot kak ik kk tek 00287C 0000 892 DC A (*-* NOT USED 
71719 * 00287E 0000 893 DC A (*-* CHAIN ADDRESS 
780 ****x DIAGNOSTIC DCB Heke eo ok kok 002880 0006 894 DC X'0006! BYTE COUNT 
781 * 002882 28A0 895 DC A(WRSID) ADDR OF SECTOR ID DATA 
0027D4 2008 782 DGDCB DC x'2008' DIAGNOSTIC DCB 896 * 
0027D6 0000 783 pc X*'00008 NOT USED 897 **** READ SECTOR ID SKEWED * KK 
0027D8 0000 784 pc X¥*0000! NOT USED 898 * 
0027DA 0000 785 DC X'0000! NOT USED 002884 200B 899 RKDCB DC X*200B CONTROL WORD 
0027DC 0000 786 pc x gogo" NOT USED 002886 0000 900 DC X'0000' NOT USED 
QO27DE 0000 787 DC A (*-* CHAINING ADDRESS 002888 0000 901 DC X¥'0000! O-7 = PHYSICAL SECTOR # MINUS ONE 
0027E0 0100 788 DC X¥"'010 BYTE COUNT 00288A 0000 902 DC X¥'OO000! NOT USED 
0027E2 0000 789 pc bee) DATA ADDRESS 00288C 0000 903 DC X'O00008 NOT USED 
790 * 00288E 0000 904 pc A (*-* CHAIN ADDRESS 
791 * 002890 0006 905 pc X"0006! BYTE COUNT FOR READ SECTOR ID 
432 ies RECALIBRATE DCB ‘****%#0K% 002892 2794 gs Z DC A (SCTID) SECTOR ID DATA ADDRESS 
OO27E4 0007 794 CLDCB pC X¥'OQ0007' RECALIBRATE DCB 908 * CONSTANTS AND DEFINED STORAGE LOCATIONS 
0027E6 00000000000000000 795 DC 7A (*-*) 002894 0000 909 ZEROO DC X¥*0000! CONSTANT ZERO 
; 196 * 002896 0001 910 ONE1 DC X¥'0001! CONSTANT ONE 
797 ***** WRITE SECTOR ID ¥** 002898 0000 911 LGSEC DC X'OQO00! LOGICAL SECTOR # 
198 * 00289A 0000 912 PHYSC DC X'00008 CONVERTED PHYSICAL SEC # 
OO27F4 0002 799 WSDCB DC X¥'0002! WRITE SECTOR ID CONTROL WORD 00289C 1D00 913 CB29 DC X'1D00' CONSTANT BYTE ra 
0027F6 0000 800 DC x'0000! NOT USED 00289E 3B00 914 FIVES DC X¥'*3B00' CONSTANT BYTE 
0027F8 0000 801 pc A (*#-* 0-7 = PHYSICAL SECTOR # MINUS ONE 0028A0 0000 915 WRSID DC X'0000! FLAG Reece TART SECTOR ID DATA) 
0027FA 0000 802 DC h k= NOT USED 0028A2 0000 916 DC X¥'0000' CYLIADER,H 
0027FC 0000 803 DC A (*—* NOT USED 0028A4 0000 917 DC X¥'0000! LOG SpeTOR. ROT USED 
OO27FE 0000 804 pc A (*-* CHAIN ADDRESS O028A6 FF34 918 WSIDT DC X'FF3G' WRITE SECTOR ID TEST DATA 
002800 0006 805 DC x*O0006! BYTE COUNT 0028A8 5678 919 DC ¥'S678! 
002802 28A0 806 pc A (WRSTD) ADDR OF SECTOR ID DATA OO28AA 9A00 920 DC X'9AOO! * 
807 ***** READ SECTOR ID DCB ‘**#*%«% 0028AC 0000 921 SCTST DC X'0000' READ SECTOR ID TEST DATA BUFFER 
002804 2002 B09 R BO38n6 9000 933 DE 00008 * 
RSDCB DC X*200A' READ SECTOR ID 
002806 0000 810 DC X'0000! NOT USED 0028B2 0000 924 CTRO1 DC X¥'0000! COUNTER 
002808 0000 811 DC x'00008 0-7 = PHYSICAL SECTOR # MINUS ONE 0028B4 0000 925 DIFF DC X'0000! DIFFERENCE LOC 
00280A 0000 812 DC x¥'*Q000! NOT USED 0028B6 0000 926 XXX DC Xx*0000! DIRECTION 
00280Cc 0000 813 pc X¥'0000! NOT USED 927 * 
00280E 0000 814 pc X¥'0000! CHAIN ADDRESS 929 COPY T78DPCIO 0O1DEC76 
002810 0006 815 DC X*0006! BYTE COUNT FOR READ SECTOR ID 930 ** (T78DPCTIO) 
002812 2794 816 DC A (SCTID) SECTOR ID DATA ADDRESS 931 * 2/07/77 
817 * 932 * EXECUTE DPC INPUT/OUTPUT COMMANDS 
818 * 933 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
819 ***k*k READ SECTOR ID IMMEDIATE DCB **** kx 934 * 3 
820 * 935 * 1 BAL CEOP1,R6 CE DIAGNOSTIC OP1(TURN ON DIAG MODE) 
002814 200E 821 RIDCB DC X"'200F! READ SECTOR ID 936 * . 
002816 0000 822 DC Xx'0000' NOT USED 937 * 2 BAL CEOP2,R6 WRITE DIAG CLOCK STEP DATA 
002818 0000 823 DC X¥'0000' NOT USED 938 * Z 
00281A 0000 824 DC x'QO000! NOT UWSED 939 * 3 BAL SENSO,F6 CE READ SENSE WOPD ZEPO 
00281c 0000 825 DC xX¥'0000' NOT USED 940 * ° 
00281E 0000 826 pc A (*—*) CHAIN ADDRESS 941 * 4 BAL SENS1,F6 CE READ SENSE WORD ONE 
002820 0006 827 pc X¥"O006! BYTE COUNT FOR READ SECTOR ID 942 * ° 
002822 2794 828 r Dc A (SCTID) SECTOR ID DATA ADDRESS ONE : 5 BAL WRAP,RE6E READ DIAGNOSTIC WRAP 
830 * 945 * BXS (R6, 2) RETURN 
831 ***** SEEK DCB Me He He IK re ie 3 3 946 * 
832 * O47 PP SPP SPS eS SESE SS SS SLE SESS SESS SST SCS SESS SSS SS SS SSS SLT SSS Pee eT PC Pe CeCe et eee sf 
002824 0005 833 SKDCB DC x¥'0005! SEEK DCB 948 * . 
002826 0000 834 DC X'00008 BIT 02 wae 0+; BIT4=DIRECTION ;5-15=DIFFER 949 * CE DIAGNOSTIC OP2 DATA WORD (CLOCK STEP) 
002828 0000 835 pc F'or 950 * 
00282A 0000 836 pc F'o! 951 * BIT 00 - SET READY 
00282c 0000 837 DC x*'o000! 0-7 = HEAD:8-15 NOT USED 952 * BIT 01 —- RESET READY 
002828 0000 838 Dc A (*-*) CHAIN ADDRESS 953 * BIT 02 - SET WRITE CLOCK 
002830 0000 839 DC F'o' NOT USED 954 * BIT 03 - SET READ CLOCK 
002832 0000 840 pc F'or NOT USED 955 * BIT OW —- INDEX PULSE 
841 * 956 * BIT 05 - SECTOR PULSE 
842 *kkKK CYCLE STEAL STATUS DCB  *#*% x 957 * BIT 06 - STANDARD READ DATA 
843 * 958 * BIT O07 - SPEED PULSE 
002834 2000 844 CSDCB DC x'2000' CONTROL WORD 959 * BIT 08 - BEHIND HOME 
002836 0000 845 DC F'O? NOT USED 960 * BIT 09 - SET SEEK COMPLETE 
0028338 0000 846 DC F'o? NOT USED 961 * BIT 10 - RESET SEFK COMPLETE 
00283A 0000 847 DC FIO? NOT USED 962 * BIT 11 - PLO OUT OF SYNC 
00283c 0000 848 pc F'ot NOT USED 963 * BIT 12 - RST RD/WRT CLOCK 
00283E 0000 849 pc Fo! NOT USED 964 * BIT 13 - 
002840 0008 850 DC x¥'0008! 4 WORDS OF STATS 965 * BIT 14 - 
002842 27AC ee 7 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA gos : BIT 15 -— RESET DIAGNOSTIC MODE 
853 ** Kx WRITE DCB He ae he Ke fe OK he eK Q 6B A AH He He ee Hee He ee ee Hee He he aK he he i eK ee he i ok cA fic ee ae a a he ae cee ec 2c oe 2c ic oe ok ie 2 ok ok ok a ok ok ok ok 
854 * 969 * 
002844 0001 855 WRDCB DC xX'0001! WRITE CONTROL WORD 970 * 
002846 0000 856 pc F'Q? NOT USED 0028B8 6E0OD 2792 071 WRAP MVW R6,LSTIO SAVE BDDRESS OF LAST I 
002848 0000 857 Dc X¥'O0000! 0-7=0;8-15 = FLAG BYTE 0028BRC 8028 19D0O 2938 972 MVB DEVADD, IT DCBRAP+1 LOAD DEVICE ADDRESS IN IDCB 
00284A 0000 858 pc x¥*0000! SERCH ARGUMENT CYLINDFR 0028C2 680C 293A 973 To IDCBRAP READ SENSE WORD 1 
00284C 0000 859 DC xX'o000! SEARCH ARGUMENT HEAD-SECTOR 0028C6 6FO5 291C 974 BNCC 7,CCERP CHECK COND CODE 
00284E 0000 860 pc A (*¥-*) CHAIN ADDPESS OO28CA 5601 975 BXS (R6 , 2) RETURN TO CALLER 
002850 0000 861 pc Fror BYTE COUNT 976 * 
002852 0000 862 DC A (*-*) WRITE DATA ADDFESS 0028CC 6EOD 2792 977 CEOP1 MVW STIO SAVE ADDRESS OF LAST I0 
863 * 0028D0 8028 19D0 2933 978 MVB Devan TDCBCE1#1 LOAD DEVICE ADDRESS IN IDCB 
864 **kkkk VERIFY DCB HICK 0028D6 680C 2932 979 IO rocece SET DIAGNOSTIC MODE 
865 * OO28DA 6FO5 291C 980 BNCC CCERR CHECK COND CCDE 
002854 200C 866 VRDCR DC x'200C! CONTROL pvoRD OO28DE 5601 981 BXs (kes 2) RETURN TO CALLER 
002856 0000 867 DC Fror NOT US 982 * 
002858 0000 868 pc X'0000' 0-7= 8215 = FLAG BYTE 0028E0 6GE0D 2792 983 CEOP2 MVW TIO SAVE ADDRESS OF LAST I0 
00285A 0000 869 pc X¥'0O000! CYLINDER OO28E4 8028 19D0 2937 384 MVB Rogtan IDCBCE2+1 LOAD DEVICE ADDRESS IN IDCB 
00285c 0000 870 DC Xx'0000" HEAD — SECTOR OO28ER 680C 2936 985 To IDCRCE2 WRITE DIAG CLOCK STEP 
00285E 0000 871 pc A (*—*) CHAIN ADDRESS OO28EE 6F05 291C 986 BNCC 7,CCERR CHECK COND CODF 
002860 0000 872 pc Fror BYTE COUN 0028F2 5601 987 BXS (f 2) RETURN TO CALLEP 
002862 0000 a7; ‘ pc A (*-*) VERIFY DATA ADDRESS Bac a 
875 *****k READ DCB eK 2 Re aK OO28F4 6EOD 2792 990 SENS1 MVW To SAVE 3DDRESS OF LAST I0 
876 * OO28F8 8028 19D0 292F 991 MVB DEUADD, IDCB1+1 LOAD DEVICE ADDRESS IN IDCB 
002864 2009 877 RDDCB DC x'2009' READ DCB CONTROL WORD OO28FE 680C 292E 992 IO B1 READ SENSE WORD 2 
002866 0000 878 Dc For NOT OSED 002902 6F05 291C 993 BNCC oCERF CHECK COND CODE 
002868 0000 879 DC X¥'0000! 0-7=0,8~-15 = FLAG BYTE 002906 5601 994 BXS 74e RETURN TO CALLER 
00286A 0000 880 Dc X¥'*0000' SEARCH APGUMENT CYLINDER 995 x 
00286C 0101 881 pc X'*0101'8 SEARCH ARGUMENT H-R 002908 6E0D 2792 996 SENSO MVW Ito SAVE ADDRESS OF LAST I0 
00286E 0000 882 DC A (*-*) CHAIN ADDRESS 00290C 8028 19D0 292B 997 MVB PEvaDD. TIDCBO+1 LOAD DEVICE ADDRESS IN IDCB 
002870 0000 883 DC F'o! BYTE COUNT 002912 680C 292A 998 To TDCB 0 READ SENSE WORD 1 
002872 0000 884 DC A (*-*) READ DATA ADDPESS 002916 6FO5 291C 999 BNCC CCERR CHECK COND CODE 
885 * 00291A 5601 1000 BXS (he, 2) RETURN TO CALLER 
886 **** WRITE SECTOR ID SKEWED KK 1001 * 
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LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00291C T706E 1002 CCERR DC X"*7O6E! COPY STATUS ANY LEVEL INTO R3 0029D0 5012 1117 J XIO 
00291E 336A 10')3 SRL 13,83 POSITION CC CODE TO BITS 13-15 1118 * 
002920 C328 278E 1004 MVB R3,$1O0IN * PUT IN LOG AREA 0029D2 4020 2AF8 27F4 1119 SHSEC HVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002924 68D2 0000 100 “ B (R6) * RETURN TO USER poeane Bra 2802 28A0 1130 ave co DATA ADDR 
002928 6F05 1007 IORST DC X'6FOS! RESET IO 0029EO0 4020 2AF8 27F4 1122 S$WSTS HVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
00292A 2205 1008 IDCBO D X'2205! SENSF WORD ZERO 0029F6 4020 2802 28A6 1123 HVA WSIDT, WSDCB4+14 DATA ADDR 
00292c 0000 1009 RDATAO DC A (*-* DATA WORD 0029EC 5004 1124 J XIO 
00292E 2105 1010 IDCB1 pC ¥*2105! SENSE WORD ONE 1125 * 
002930 0000 1011 RDATA DC a Taae OO2Z9EE 4020 2AF8 27D4 1126 $DIAG MVA DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002932 4005 1012 IDCBCE1 DC x*'4oo5! CE DTAG OP1 0029F4 5000 1127 J xIO 
002934 0000 1013 CEDAT hepa SENSE DATA 1128 XEQTT 
002936 4105 1014 IDCBCE2 pc x*s105s CE DIAG OP2 112942 iO OO oii iO oii ok dokidok dkotok et tok tk 4 99 JUL 76 ** 
002938 0000 1015 CEDAT2 DC A (*-* SENSE DATA 1130+%* 
00293A 2F05 1016 IDCBRAP DC xX*2FO5'° READ DIAG WRAP | 1131+* SUB-ROUTINE 
00293C 0000 1017 RAPDAT DC A (*-* SENSE DATA 1132+* 
000232 Aaa e cPUrD EQU) X'0232' CPU TID ei EXECUTE INPUT AND OUTPUT COMMANDS 
+ 
1021 COPY CK78IO OTDEC76 1135+* PURPOSE 
1022 ** (T7810) 01DEC76 1136+* 
1023 * 1137+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
1024 * EXECUTE INFUT & OUTPUT COMMANDS 1138+* THIS SUBROUTINE WILL DO THE FOLLOWING FONCTIONS: 
1025 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 1139+* 
1026 * EACH OF THESE ENTRIES SET RV WITH THE ADRS OF ITS PARAMETER 1140+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
1027 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 1141+* THE I/0 COMMAND. 
1028 * SUPVR CALL. 1142+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
1029 * - 1143+* ISSUED BY THIS SUBROUTINE. 
1030 x THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 19 444% 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
1031 * * 1145+%* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
1032 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 1146+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 
1033 * 2- ERROR INTERRUPTS RECEIVED FROM SUPVR 114 7+%* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 
1034 * 3. LOOP ON ERROR, THE CALL MUST HAVE A 'DC* STATEMENT AFTER 1148+4+%* MYSTERY INTERRUPT (I) CONTROL BIT IS SET. 
1035 * “ THE CALL WITH THE ADDRESS OF THE RETRY STATEMENT 11494* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 
1036 * 4. CYCLE STEAL IN PROGRESS WITH AN ERROP 1150+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'SVC STAPT®. 
1037 * 5. SOMETHING ELSE 1151+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 
1038 * 1152+¢%* STARTS TO DETERMINE A LOST INTERRUPT. 
1039 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1153+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
1040 * = 1154+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
1041 * 1 BAL SRKEW, R6 READ SECTOR ID SKEWED 1155+ 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
1042 * = 1156+ 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
1NnW3 * 2 BAL SWKST, F6 WRITE SECTOR ID SKEWED (TEST) 1157+%* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
1044 * ia 11584+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 
1045 * 3 BAL SRWST,F6 READ SECTOR ID SKEWED (TEST) 11594 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
1046 * ‘ 1160+* ISSUED BY THIS SUBROUTINE. 
1047 * ¥& BAL SRIDS,F6 READ SECTOR ID (TEST) 116 14+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON ISSUE A 
1048 * = 1162+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
1028 : 5 BAL SWKEW,R6 WRITE SECTOR ID SKEWED renee COUNT IT AND SET UP THE PROFER ERROR MESSAGE TO BE PRINTED. 
x + 
geo : 6 BAL ZWSEC,P6 WRITE SECTOR ID lees CALLING SEQUENCE 
5 + 
tae : 7 BAL SWSTS,R6 WRITE SECTOR ID (TEST A es THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
1055 * 8 BAL SDIAG,R6 DIAGNOSTIC 11694+* -=-> BAL xIo OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
1056 * : | 1170#* --> BAL XTI01 MOD PARM PRELOADED IN 'Iomobt 
1057 * 9 BAL XIocS,R&6 CYCLE STEAL STATUS | 11714#* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
1058 * 2 1172+* --> BAL xXIOCS-4,R6 AUTO CS STATUS (FOLLOWING OTHER XIO 
1026 =f 10 BAL SSEEK ,R6 SEEK eats ° AND DOES NOT POST INTERRUPT TUS) 
1064 id 11 BAL SRECL,R6 RECALIBRATE eee RETURN CONTROL 
a + 
1063 * #2 BAL SRDID,R6 PEAD SECTOR ID 11774+* BXS R6,2) RETURN TO USER NO ERROR 
1064 x . 1178+* B 6) * RETURN AND RETRY ON ERROR 
1065 * 13 BAL SRD,R6 READ 4179 + IOI III GR ICR ICI OO OO I kok kok ak kkk fetid ok ak 
1066 * . 0029F6 CB25 2AFA 1181+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
cog ea 14 BAL SRDVY,F6 READ VEFIFY OO29FA 5OOA pr agey J XIO1 CS I/O'S ARE NOT RETPIED 
ie + 
1069 * 15 BAL SWRT,R6 WRITE OO29FC 4CAA 1184+ TBTR (Ra cS RESET CS STATUS INTER ERROR INDICAT. 
1070 * OO29FE 4Cc68 1185+ TBTS R4,CS SET "CYCLE STEAL STATUSS IN PROGRESS 
1071 * O0O2A00 4020 2AF8 2834 1186+XIOCS MVA CSDCB ODCB SET UP CONTROL BLOCK FOR SVC CALL 
00293E 4020 2AF8 2824 1072 $SEEK MVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL OO2A06 4020 2AFA OOOF 1187+ MVWI X'000F", TOMOD SET CYCLE STEAL MODIFIER 
002944 =5058 1073 J XIO OO2A0C 4C28 11884 TBT (R4,CS) IS CS IN PROGRESS, ERROR CONDITION 
1074 * OO2ZAOR 1213 1189+ JON xtro2 * YES, BYPASS SAVING TZ0 ADRS 
0029 46 4020 2AF8 27E4 1075 S$RECL MVA CLDCB,IODCB SET UP BLOCK FOR SVC CALL 002A10 6EOD 2792 1190+XIQ1 MVW R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED 
00294C 5054 1076 XIO OO2ZA14 4324 279C 1191+4 MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 
1077 * 002A18 6D08 2AF8 1192+ MVW IODCB,RS5 * AND THE FROM ADRS ALONG WITH 
OO294UE 4020 2AF8 2804 1078 S$RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL O0O02A1C OF10 1193+ MVBI 16,87 * THE NUMBER OF MOVES 
002954 OBFF 1079 MVBI X'FF?# ,R3 SET BUFFER TO FS OO2ZATE 2D64 1194+ MVFEN §R9) fe) MOVE 1 STATUS WORD AND ADJUST 
002956 4524 2794 1080 MV SCTID,R5 SETUP FEAD SECTOR ID BUFFER ADRS Q0O02A20 OBFF 1195+ MVBI 55 fh CLEAR CYCLE STATUS BUFFER 
OO295A 4724 0006 1081 MVWI 6,R7 SETUP BUFFER LENGTH 002A22 4524 27AC 1196+ MVA CSBOF,R5 * 7T0 ALL ONES * 
00295E 2BAC 1082 FFN R3 eo INIT READ SECTOR ID BUFFEP 002A26 OF10 1197+ MVBI 16,R7 % 
002960 4020 2812 2794 1083 MVA SCTID, SDCB+14 DATA ADDR 002A28 2BAC 1198+ FPN R3 APO) * 
002966 5047 1084 J XIO OO2ZA2A 4020 278E 0708 1199+ MVWI X16 08',SIOIN OVERLAY OLD CONDITION CODES 
1085 * 002A30 CB25 2790 1200+ MVWZ SISB,R3 ZERO OUT OLD ISB VALUE 
002968 4020 2AF8 2864 1086 RD MVA RDDCB, IODCB SET UP BLOCK FOR SVC CALL 1201+* 
00296E 5043 1087 J XIO 002A34 4CA1 1202+ TBTR ented RESET ANY ERROR BEFORE 1/0 COMMAND 
1088 x OO2A36 &4CA3 12034#XI02 TBTR RY,IN CLEAP INTERRUPT RECEIVED CNTL BIT 
002970 4020 2AF8 2854 1089 SRDVY MVA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 002A 38 “724 2AF4 1204+ MVA TOBLK 7 SET UP CONTROL BLOCK FOR SUPVP 
002976 503F 1090 J XIO OO2A3C 4CA6 1205+ TBTR R4,$LE) RESET LEVEL ERROR INDICATOR 
1091 * OO2A3E 4C62 1206+ TBTS R4 XT) SET EXPECTED INTR CONTROL BIT 
002978 4020 2AF8 2844 1092 S$WRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL OO2A40 600A 1207+ SVC TART CALL SUPVR FOR I/O COMMAND 
00297E 503B 1093 J XIO 1208+* 
1094 * OO2A42 UCAT 1209+ TBTR R4,NTI) IS AN INTR EXPECTED 
002980 4020 2AF8 2884 1095 $S$RKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL OO2ZA4Y4 6ACO 0002 1210+ BN R6,2) . * NO, RETURN TO USEP 
002986 4020 2892 2794 1096 MVA SCTID, RKDCB+14 DATA ADDR 12114+* 
00298C 5034 vege . J XIO ease THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
+ 
O00298E 4020 2AF8 2874 1099 SWKST MVA WKDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL OO2A48 ODOO 1214+ MVBY xt00O?t,R5 SET UP WORK REG FOP tLOST INTF! 
002994 4020 2882 28A6 1100 MVA WSIDT, WKDCB+14 DATA ADDR OO2ZA4A 4CA3 1215+XIO8 TBTR see tf) HAS INTERRUPT BEEN RECEIVED 
Q0O0299A 502D 1101 J XIO OOZA4C 1238 1216+ JON ToéK * YES, CHECK IF ALL WAS SATISFACTORY 
1102 * OO2ZA4UE 6002 12174 SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
00299C 4020 2AF8 2884 1103 SRWST MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 1218+* SUPVR WILL RETURN HERE 
0029A2 4020 2892 28AC 1104 MVA SCTST, RKDCB+t 44 DATA ADDR 002A50 7DA1 0001 12194 AWI 1,R5 ADVANCE TIME OUT COUNT 
OO29A8 5026 1105 J XIoO OO2A54 18FA 4220+ JNZ xfo8 BCH IF TIME OUT NOT REACHED 
1106 * 002A56 4&C61 1221+ TBTS R4 , ER) SET ON ERROR CONTROL BIT 
QO29AA 4020 2AF8 2804 1107 SRIDS MVA RSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL O0O2A58 68D2 0000 1222+ B {+ ERR 'NO INTERRUPT 
0029B0 OBFF 1108 MVBI X'FF',R3 SET BUFFER TO F'S 12 Ue RIO IO GOGO tla Jogo 0) 3 F EB 7 648 
0029 B2 4524 28AC 1109 MVA ScTST,R5 SETUP READ SECTOR ID BUFFER ADPS 1225+ 
0029B6 4724 0006 1110 MVWI 7 SETUP BUFFER LENGTH 1226+* SUBROUTINE 
0029BA 2BAC 1111 FFN R3 sE>, INIT READ SECTOR ID BUFFER 122 7+*% 
0029BC 4020 2812 28AC 1112 MVA sch T,RSDCB+14 DATA ADDR 1228+* I/O EXECUTE ERROR HANDLING ROUTINE 
0029c2 5019 1113 J XTo 1229+* 
1114 * 1230+* PURPOSE 
0029C4 4020 2AF8 2874 1115 SWKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 1231+* 
0029CA 4020 2882 28A0 1116 MVA WRSID,WKDCB+14 DATA ADDR 1232+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
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1233+% PROBLEM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THF OO2AB4 4C60 1349+ TBTS (Re MI) * NO, SET MYSTERY INTR CONTROL BIT IL 
123U4+% SUPERVISOR AND IT WAS NOT ACCEPTED. 002AB6 F304 1350+ CBI yR3 ATTENTION INTERRUPT? IL 
1235+* 002AB8 1001 1351+ JE INTRX YES IL 
1236+* CALLING SEQUENCE OO2ABA 4C6C 1352+ TBTS (R4,NG) ERROR, UNEXPECTED INTERRUPT IL 
1237+% OO2ABC 6006 1353+INTRX SVC XI EXIT THIS LEVEL VIA SUPVR TO PGM TL 
12384* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN Tso COMM AND : VBS HM He He ee ee ee ee He Re a ei oe oe 2K ok he oe i he eR aK a i ie tek kk KK KO BF EBT 6 -** 
1239+% 1356+* 
1240+* RETURN CONTROL 1357+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
12414+* 1358+% HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
1242s B (R6) * RETURN TO USERS EPROR HANDLER 1359+% RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
+ + 
pS PSST SS SS STS SET SSE SSS STS SSS TPS SSS SS SS SSS SSS SSS SS SSS SS CTS LSS SCS SS SST STS. SS 1361+* 
12454+* OO2ABE 4CA4 1362+#XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 
12464+* CC O= DEVICE NOT ATTACHED 002ACO 6ACO 0002 1363+ BN RO, 2) * YES, FXIT THIS ROUTINE 
1247+* FOP 1= DEVICE BUSY 002AC4K 4CA8 1364+ TBTR (R4,CS) WAS 5605 CS IN PROGRESS 
1248+* I/0 2= DEVICE BUSY pAETER RESET OO2AC6 1006 1365+ JOFF xXTOeV NO, CONTINUE CHECKING 
1249+4% 3= COMMAND REJECT OO2AC8 4C2A 1366+ TBYT (Ra CE) TS eg IN AN ERR CONDITION 
1250+* 4= INTERVENTION REQUIRED OOZACA 1002 1367+ JOFF xXr0eo NO, BCH 
1251+* 5= INTERFACE DATA CHECK 002ACC 68D2 0000 1368+ B R6) * cs ERROR 
1252+% 6= CONTROLLER BUSY 002AD0 4cé69 1369+XIOCO TBTS (R4,CSA) TERM ON CS STATS AVAIL FLAG 
1253+* 7= I/O COMMAND EXCEPTED OO2AD2 5601 1370+ BXS R62) GO TO USER 
12544% OO2AD4 4C21 1371+XIOCV TBT RO, ER) WAS ERROR INTR CONTROL BIT ON 
00O2A5C 706E 12554+XIOER DC X'706E! COPY STATUS ANY LEVEL INTO R3 OO2ZAD6 1008 1372+ JOFF xXtocxX * NO, EXIT THIS ROUTINE 
OO2A5E 336A 12564 SRL 13,83 POSITION CC CODE TO BITS 13-15 1373+* 
002A60 C328 278E 1257+ HV B R3, $1OIN * PUT IN LOG OUT AREA OO2AD8 C520 278F 13744 MVB $IOIN+1,R5 GET LAST INTP CC CODE 
002A64 68D2 0000 1258+ (Rb) * RETURN TO USER ERROR HANDLER OO2ADC F502 1375+ CBI 2,R5 IS THIS cCc=2 
Laas kkaKeeeEREKEd SR II IR IO IGOR IG I OR gob kok ok stot tk 7 A PR 7 6 4% OO2ZADE 68D1 0000 1376+ BNE (Ro) * * NO, BCH TC ERROR HANDLER 
1261+* L OO2ZAE2 C520 2790 13774+XIOCQ MVB TSB,RS5 GET £AST ISB DATA BYTE AND IF CS 
1262+* SUB-ROUTINE IL OO2ABR6 6A00 29FC 1378+ BN xtoc§-4 * AVAILABLE, GO AND GET IT 
1263+* IL OO2ZAEA 68D2 0000 1379+ B (R6) * ERROR 
1264+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL! TL OO2AEE CB25 278A 1380+XIOCX MVWZ OEFTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
1265+* TL OO2ZAF2 5601 1381+ BXS (R6,2$ RETURN TO USER VIA REG 6 
1266+* PURPOSE IL 1382+% 
1267+ TL 1383+* I/O PARAMETER LIST 
1268+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 1384+% 
1269+% OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE TL OO2AF4 19D0 1385+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
1270+%* EXPECTED CODE. IL OO2AF6 2A5C 1386+ DC A (XTOER) ERROR ROUTINE ADRS 
12714* TL OO2AF8 0000 1387+IODCB DC R (*-* DCB ADRS OR LEVEL & INTR 
1272+* CALLING SEQUENCE TL OO2AFA 0000 1388+IOMOD DC Rh (#- MODIFIER 
1273+% IL OO2AFC 0000 1389+ DC A (*-* ADRS OF LAST SVC CALL 
i27h+s SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN 1/0 INTERRUPT TL OO2ZAFE 0000 1390+TORSP DC A (*-* SECOND WORD OF LAST IDCB 
+ + 
1276+% RETURN CONTROL TL 1392+% INTERRUPT CONTROL BLOCK FOR I/0 COMMANDS | 
+ + 
1278+% svVC EXIT RETURN TO USER VIA SUPVR TL 002B00 19D0 13944INTBL DC A DEVADD) ADRS OF DEVICE ADRS 
1279+% IL 002B02 2A8C 1395+ DC A tINTO TNTERRUPT OK | RETURN ADRS 
V2 BOF RH HHA HH HH HHH HH HHH HR HE HEHE EH Fe HO RK A i 2 A i i 2 I hc ie i a i ae tk dO eT TL OOZBOY 2468 1396+ DC A INTER INTERRUPT ER ADRS 
1281+% IL 002B06 0003 1397+INTCC DC X"000 INTERRUPT RODE. EXPECT D 
1282+* CC O= CONTROLLER END ISB = ADD STATUS IL 13 OD HH HH HK He He He He eK KK OK S RMWEU ESS SU WEGN GR Lele anak ec ote esx eseeeemnees 
1283+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 1400+* 
1284+* INTR 2= EXCEPTION INTERRUPT FOR = INCOR LENGTH IL 1401+* SUBROUTINE 
1285+% 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK TIL 1402+%* 
1286+* 4= ATTENTION INTERRUPT = §TG DATA CK IL 1403+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
1287+% 5= ATTENTION / PROGRAM CNTL INTR = INV STG ADRS IL 14044% 
1288+* 6= ATTENTION / EXCEPTION INTR = PROTRCT CK IL 1405+* PURPOSE 
1289+* 7= ATTENTION 7 DEVICE END INTR = I-FACE DATA IL 1406+% 
1290+* TL 140 7+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
002A68 706E 1291+INTER DC X"706E! COPY STATUS ANY LEVEL INTO R3 IL 1408+% PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
OO2A6A 336A 1292+ SRL 13,R3 POSITION INDICATORS IN R3 TL 1409+* TO INTERRUPT. 
OO2K6C 8424 2786 1293+ MVA OFfN1,R4 SET UP BASE ADRS TL 1410+* 
0O2A70 4c¢28 129 4+ TBT (Rd c§) IS CS IN PROGRESS IL 14114+* CALLING SEQUENCE 
002472 1006 1295+ JOFF InNtTE£S * NO TL 1412+% 
OO2A74 4C6A 1296+ TBTS (a4 CE) TURN ON CYCLE STEAL INTER ERROR IL 1413+% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
002A76 6FOD 27BA 1297+ MVW 7 ESTLB SAVE CS ERR ISB VALUE, BITS 0-7 TL 1414+%* 
OO2A7A C328 27BB 1298+ MVB  R3,CSTL8+1 * AND THE COND CODE TL 1415+* --> BAL  S$CONC,R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
OO2A7E SOOA 12994 J INTR1 TL 1416+* --S BAL SCONP ,R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
002480 &c24 1300+INTES TBT (RY, XE) TEST EXPECTED ATTEN / ERROR IND TL 1417+% 
002A82 1002 1301+ JOFF iINTET BCH IF NOT EXPECTED IL 1418+* RETURN CONTROL 
OO2A84 F304 1302+ CBI 4,R3 Ts THIS | AN ‘ATTENTION! INTR TL 1419+% 
00O2A86 1006 1303+ JE TATRI * YE TO END INTR SEQUENCE IL 14204+* BXS R6 RETURN TO USER VIA REG 6 IF OKAY 
OO2A88 4C61 1304+INTET TBTS {Ra ER) SET Bhrbee ON I/O COMMAND CNTL BIT TL 1421+* OR B Fels IF THE DEVICE COULD NOT BE CONNECTED 
OO2A8A 5004 1305+ a wth TL 1422+%* 
1306+* THE ERROR INTERRUPT USES THE SAME TL YD BM HMR HK HH He HK He He He HM HK HK A he He He He he Hee 2c He He he he ee he he He 2 2c 2c i i he 2 a 2 2 ac 2 a i ac ac ic ok ae afk te ie ok ok 
1°30 74% ENDING SEQUENCE AS THE NORMAL INTR IL 002B08 OF06 1424+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
V3 OOF HR HK HH HK HM HK HK KH KK KK HE eH HK HK i 2h 3 OK KK 3K RHA KKK HK KK KKKKKKKK ILA DRTEIL OO2BOA OBO0O 1425+ MVBI 0 'R3 * AND THE DATA TO USE 
1310+* IL OO2B0C 4524 2794 14264 MVA. D&V1,R5 * ALONG WITH THE ADRS TO USE 
1311+* SOUBROUTINE IL 002B10 2BAC 1427+ FFN R3 (85) * 
1312+* TL 002B12 CB25 278A 1428+ MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
13134% OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! TT 002B16 4724 2800 1429+ MVA  INTBL,R7 SET R7 TO CONTROL BLOCK AND 
13144+* IL OO2B1A 6014 14304 SVC CICB * CONNECT IT TO THIS DEVICE 
131544 PURPOSE TL 002B1C 6ADO 0000 1434+, BN (R6) * ERROR RETURN TO USER 
+ 
1317+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 002B20 8828 27C2 2AF8 1433+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
1318+* IL 002B26 4724 2aAFY 14344 MVA  TIOBLK-R7 SET R7 TO CONTROL BLOCK TO PREPARE 
1319+* CALLING SEQUENCE TL OO2B2A 4020 278E 0708 1435+ MVWI X'0708',$IOIN INITIALIZE CONDITION yS OBE STORAGE 
1320+* IL 002B30 cB25 2790 1436+ MVWZ $ISB,R3 * AND CLEAR OLD ISB 
1321+% SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUEST ED TL 002B34 6E0D 2792 1437+ MVW  R6,LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
1322+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 002B38 600C 1438+ SVC PREP * AND CALL ON SUPVR 
1323+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE TL 0O2B3A 5601 1439+ BXS (R6,2) RETURN TO USER 
Vo5ecs COMMON SECTION IS HANDLED HERE. IL 100 7 4 a OR RIG IG GR iodo ick ok ik 06 APR 76 #8 
325+* IL 14424* 
1326+* RETURN CONTROL TL 1443+* SUBROUTINE 
13274+* IL 1U444+% 
1328+% SVC EXIT RETURN TO USER VIA SUPVR TL 14u 54x DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
+ 
1330 + HH HHH HH HH HH AH AO IR ARR RIOR RO RRR RRR IO TRIO OR II FOR CAOK T T, 1447+* PURPOSE 
0O2A8C 706EF 1331+INTOK DC KS 706! COPY STATUS ANY LEVEL INTO R3 TL 1448+* 
OO2A8E 336A 1332+ SRL POSITION INDICATORS IN R3 IL 14494 DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
002490 4424 2786 1333+ MVA opbn} RY SET EA TL 1450+* SET THE 'NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
00294 4C63 1234+INTR1 TBTS (R4,If SET INTERRUPT RECEIVED TL 1451+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
002496 4C28 1335+ TBT RU,CS IS 'CS IN PROGRESS! ON IL 14524 
002A98 1204 1336+ JON wrk2 * YES, BCH AROUND UPDATE IL 1453+* CALLING SEQUENCE 
OO2A9A C328 278F 1337+ MVB R3,$TOIN+1 SAVE INTERRUPTING CC CODE TL 14544* 
OO2A9E 6F0D 2790 1338+ MVW =R7,$1S SAVE INTR STATUS AND DEV ADRS IL 1455+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
OO2AA2 13394+INTR2 EQU * TL 14564+* 
1340+* CPBCL R5 CURRENT LEVEL COPIED BY DCP TZ 1457+* --> B SERRS SET 'NG* BIT AND CONVERT DATA TO LOG 
OO2AA2 3521 13414 SLL 4,R5 POSITION INTR LEVEL AND PUT TL 1458+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
OO2AAG 0501 1342+ ABI 1,R5 * IN 'I' BIT IL 14594* 
OOZAA6 CD24 27c2 1343+ CW SINTL, R5 IS THIS THE CORRECT INTR LEVEL IL 14604* RETURN CONTROL 
OO2ZAAA 1002 1344+ JE INTR3 * YES, GO EXIT THIS LEVEL TL 1461+* 
OO2ZAAC 4C66 13454 TBTS (RU, $LE) SET INTR LEVEL ERROR CONTROL BIT IL 1462+ B TURTN* RETURN TO MDI 
OO2AAE 4C61 1346+ TBTS (RU,ER SET ERROR ON 1/0 COMMAND CNTL BIT TL 1463+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
OO2AB0 4CA2 13474INTR3 TBTR (R4O,XTI WAS INTERRUPT EXPECTED TL 14644% 
OO2AB2 1204 1348+ JON wThy * YES, EXIT OFF THIS INTR LEVEL IL JG DS RKKEH EKA EK KKKHKKKKEK HK KKK KK RK KE KKK KKK KEAK KKK KKK KKKK KK KE KEKKKKKKKK KEKE 
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17820 --- CLOCK/496 2 P/N=1635396 EC=755285 PAGE 13 17820 --- CLOCK/4962 P/N=1635396 EC=755285 PAGE 13A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM COP P 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
1015 CEDAT2 ADDRESS. HEX LOCATION (00002938) IN CSECT (17820 1 LENGTH (2) 1204 1434 1577 1652 1867 1936 2178 2246 2443 
1594 1603 1606 1609 1612 1615 1634 1672 1676 2512 
1704 1708 1712 1717 «+1721 #+1730 #1874 «+1883 1886 1387 TODCB ADDRESS. HEX LOCATION (00002AF8 IN CSECT (17820 ) LENGTH (2) 
1889 1892 1895 1918 1956 1960 1988 1992 1996 1072 1075 1078 1086 1089 1092 1095 1099 1103 
2001 2005 2014 2185 2194 2197 2200 2203 2206 1107. 1115 1119 1195 1126 1186 1192 1433 
2228 2266 2270 2298 2302 2306 2311 2315 2324 1388 TOMOD ADDRESS. HEX LOCATION(OOOO2AFA) IN CSECT(I7820 ) LENGTH (2) 
2450 2459 2462 2465 2468 2471 2494 2532 2536 1181 1187 
2564 2568 2572 2577 2581 2590 37 17820 CSECT. START (00002500) LENGTH (5626) ESDID(0) 
977 CEOP1 ADDRESS. HEX LOCATION (000028CC) IN CSECT(I7820 ) LENGTH(4) 37 
1591 1871 2182 2447 1501 LINE1 ADDRESS. HEX LOCATION(OO002BCE) IN CSECT(I7820 ) LENGTH(4O) 
983 CEOP2 ADDRESS. HEX LOCATION(000028E0) IN CSECT (17820 ) LENGTH (4) 1472 
1595 1604 1607 1610 1613 1616 1635 1673 1677 6 30 LSTIO ADDRESS. HEX LOC ATI ON (00002792) IN CSECT(I7820 ) LENGTH(2) 
1705 1709 1713 1718 1722 #1731 #1875 41884 1887 971 977 98 990 996 90 1437 
1890 1893 1896 1919 1957 1961 1989 1993 1997 607 MI ABSOLUTE. HEX VALUE (00000020) 
2002 2006 2015 2186 2195 2198 2201 2204 2207 1349 
2229 2267 2271 2299 2303 2307 2312 2316 2325 1475 MVBUF ADDRESS. HEX LOCATION(00002B5A) IN CSECT(I7820 ) LENGTH(2) 
2451 2460 2463 2466 2469 2472 2495 2533 2537 1479 1482 
2565 2569 2573 2578 2582 2591 619 NG ABSOLUTE. HEX VALUE (0000002C) 
697 CICB ABSOLUTE. HEX VALUE (00000014) 1352 
1430 614 NI ABSOLUTE. HEX VALUE (00000027) 
794 CLDCB ADDRESS. HEX LOCATION(000027E4) IN CSECT(I7820 ) LENGTH (2) 1209. 1620 1900 2211 2476 
1075 381 N00001 ADDRESS. HEX LOCATION (00002550) IN CSECT(I7820 ) LENGTH(2) 
615 cs ABSOLUTE. HEX VALUE (00009028) 315 535 
1185 1188 1294 1335 1364 393 N00002 ADDRESS. HEX LOCATION(00002562) IN CSECT(I7820 ) LENGTH (2) 
616 CSA ABSOLUTE. HEX VALUE (00000029) 318 
1369 405 N00003 ADDRESS. HEX LOCATION (00002574) IN CSECT(I7820 ) LENGTH (2) 
646 CSBUF ADDRESS. HEX LOCATION(000027AC) IN CSECT(I7820 ) LENGTH (1) 321 
851 1196 417 N00004 ADDRESS. HEX LOCATION(00002586) IN CSECT(I7820 ) LENGTH (2) 
B44 CS DCB ADDRESS. HEX LOCATION (00002834) IN CSECT(I7820 ) LENGTH(2) 324 
1186 420 N00005 ADDRESS. HEX LOCATION(0000258A) IN CSECT(I7820 ) LENGTH (2) 
648 CSTL2 ADDRESS. HEX LOC ATION (000027A8) IN CSECT(I7820 ) LENGTH(2) 327. 4 
1584 1643 1927 2237 250 423 N00006 ADDRESS. HEX LOCATION(0000258E) IN CSECT(I7820 ) LENGTH(2) 
649 CSTL3 ADDRESS. HEX LOCATION (06002780) IN CSECT(I7820 ) LENGTH (2) 330 9 
1586 429 N00007 ADDRESS. HEX LOCATION(0000259A) IN CSECT(I7820 ) LENGTH(2) 
654 CSTL8 ADDRESS. HEX LOCATION (000027BA) IN CSECT(I7820 ) LENGTH(2) 333 = 38 
1297 1298 444 N00008 ADDRESS. HEX LOCATION (000025AC) IN CSECT(I7820 ) LENGTH (2) 
924 CTRO1 ADDRESS. HEX LOC ATION (00002852 IN CSECT (17820 ) LENGTH (2) 336 
1602 1618 1700 1725 1726 82 1898 1984 2009 453 N00009 ADDRESS. HEX LOCATION(000025BE) IN CSECT(I7820 ) LENGTH (2) 
2010 2193 2209 2294 2319 330 2458 2474 2560 339 
2585 2586 456 N00010 ADDRESS. HEX LOCATION (000025C2) IN CSECT(I7820 ) LENGTH(2) 
6 36 DCBUF ADDRESS. HEX LOCATION (0000279C) IN CSECT(I7820 ) LENGTH (1) 342 4 
1191 459 N00011 ADDRESS. HEX LOCATION (000025C6) IN CSECT(I7820 ) LENGTH (2) 
1512 DC2PT ADDRESS. HFX LOCATION(00002CA0) IN CSECT(I7820 ) LENGTH(2) 345 
1485 471 N00012 ADDRESS. EEX LOCATION(000025D8) IN CSECT(I7820 ) LENGTH (2) 
105 DEVADD ADDRESS. HEX LOCATION (00001900) IN CSECT (17820 Y LENGTH (1) 348 
4051 1223 3238 5084 991 97 1385 1394 1491 483 N00013 ADDRESS. HEX LOCAYTON(O00025EA) IN CSECT(I7820 ) LENGTH(2) 
631 DEV1 ADDRESS, HEX LOCATION (00002794) IN CSECT(I7820 ) LENGTH (2) 486 NO00014 ADDRESS, HEX LOCATION (000025EE) IN CSECT(I7820 ) LENGTH (2) 
782 DGDCB jABDPESS. HEX LOCATION(000027D4) IN CSECT(I7820 ) LENGTH(2) 489 N00015 ADDRESS. HEX LOCATION (000025F2) IN CSECT(I7820 ) LENGTH (2) 
! 67 DU MMY ABSOLUTE, HEX VALUE (00000000) 501 N00016 ADDRESS. HEX LOCATION (00002604) IN CSECT(I7820 ) LENGTH(2) 
525 ENTPT ADDRESS. HEX LOCATION(0000262C) IN CSECT(I7820 ) LENGTH(1) 513 N00017 ADDRESS. HEX LOCATION (00002616) IN CSECT(I7820 ) LENGTH(2) 
47 EQ ABSOLUTE. HEX VALUE (00000000) 5 16 100018 ADDRESS. HEX LOCATION (00002614) IN CSECT(I7820 ) LENGTH (2) 
608 ER ABSOLUTE. HEX VALUE (00000021) 519 N00019 ADDRESS. HEX LOCATION(0000261E) IN CSECT(I7820 ) LENGTH (2) 
1202. 1271 1308 1346 1371 1582 1641 1925 2235 369 490 
2501 57 ON ABSOLUTE. HEX VALUE (00000200) 
683 EXIT ABSOLUTE. HEX VALUE(00000006) 396 408 444 50 
1353 572 OPTN1 ADDRESS. HEX LOCATION (00002786) 7 IN CSECT(I7820 ) LENGTH (2) 
1514 FAKETU ADDRESS. HEX LOCATION(QO002CA4) IN CSECT(I7820 ) LENGTH (2) 1293 1333 1568 1858 2169 2434 
1484 595 OPTN3 ADDRESS. HEX LOCATTON(00002782) IN CSECT(I7820 ) LENGTH (2) 
544 F00004 ADDRESS. HEX LOCATION(00002632) IN CSECT(I7820 ) LENGTH(1) 1380 1428 
418 454 agg § 101 PARMARA ADDRESS. HEX LOCATION (0000196E) IN CSECT (17820 ) LENGTH (1) 
556 F00011 ADDRESS. HEX LOCATION (00002700) IN CSECT(I7820 ) LENGTH(1) 391 403 415 439 451 69 4 9 511 
421 457 4s? 5 69 PID ADDRESS. HEX LOCATION(00001800) IN CSECT (17830 Y LENGTH (1) 
562 F00127 ADDRESS. HEX LOCATION (0000275A) IN CSECT(I7820 ) LENGTH (1) 71 72 73 74 75 76 77 78 9 
424 80 84 82 83 Bu 85 86 87 88 
566 F00130 ADDRESS. HEX LOCATION(00002772) IN CSECT(I7820 ) LENGTH(1) 89 90 94 92 93 94 95 96 97 
520 98 99 100 101 102 103 104 + #.105 106 
1520 HEBLK ADDRESS. HEX LOCATION(00002CA6) IN CSECT(I7820 ) LFENGTH(2) 107. 108 109 110 1117 #421112 «1483 
1467 1515 PIDMSG10 ABSOLUTE. HEX VALUE(O000F1F0) 
703 HTOE ABSOLUTE. HEX VALUE(0000001A) 1483 
1468 689 PREP ABSOLUTE. HEX VALUE (0000000C) 
1012 IDCBCE1 ADDRESS. HEX LOCATION (00002932) IN CSECT(I7820 ) LENGTH (2) 1438 
978 979 1011 RDATA ADDRESS. HEX LOCATION (00092930) IN CSECT (17820 ) LENGTH (2) 
1014 IDCBCE2 ADDRESS. HEX LOCATION (00002936) IN CSECT(I7820 ) LENGTH(2) 1744 1745 1747 1748 2028 2029 2031 2032 2338 
984 985 2339 2341 2342 2604 2605 2607 2608 
1016 IDCBRAP ADDRESS. HEX LOCATION (0000293A) IN CSECT(I7820 ) LENGTH(2) 1009 RDATAO ADDRESS, HEX LOCATION (0000292C) | IN CSECT(I7820 ) LENGTH (2) 
972. 973 1740 1741 2024 2025 2334 2335 2600 2601 
1008 IDCBO ADDRESS. HEX LOCATION(0000292A) IN CSECT(I7820 ) LENGTH (2) 2051 PDBUF ARDRESS. HEX LOCATION(00003266) IN CSECT(I7820 ) LENGTH(2) 
1010 IDCB1 ADDPESS. HEX LOCATION (0000292E) IN CSECT(I7820 ) LENGTH (2) 877 RDDCB ADDRESS. HEX LOCATION (00002864) IN CSECT(I7820 ) LENGTH(2) 
991 992 1572 1862 2173 38 1086 1901 1902 1903 1904 1905 
679 IDLE ABSOLUTE. HEX FALUE (00060002) ~ 685 RESET ABSOLUTE. HEX VALUE (00000008) 
1217 1578 1653 1868 1937 2179 2247 2444 2513 
610 IN ABSOLUTE, HEX VALUE (00000023) 696 RICB ABSOLUTE. HEX VALUE (00000013) 
1203. 1215 1334 1597 1632 °1738 1755 1877 1916 1492 
2022 2039 2188 24226 2332 2349 2453 2492 2598 899 RKDCB ADDRESS. HEX LOCATION (00002884) IN CSECT(I7820 ) LENGTH(2) 
1394 INTBL RDDRESS. HEX LOCATION (00002B00) IN CSECT(I7820 ) LENGTH (2) 809 RSDCB ADDRESS. HEX LOCATION (00002804) IN CSECT(I7820 ) LENGTH (2) 
1291 INTER ADDRESS. HEX LOCATION (00002A68) IN CSECT(I7820 ) LENGTH (2) 635 SCTID ADDRESS, HEX LOCATION (00002794 oat CSECT(I7820 ) LENGTH (2) 
1300 INTES ADDRESS. HEX LOCATTON (00002A80) IN CSECT(I7820 ) LENGTH (2) 921 SCTST ADDRESS. HEX LOCATION (000028AC) IN CSECT(I7820 ) LENGTH(2) 
1304 INTET ADDRESS. HEX LOCATION(00002A88) IN CSECT(I7820 ) LENGTH (2) 996 SENSO ADDRESS, HEX LOCATION (00002908) IN CSECT(I7820 ) LENGTH(4) 
1331 INTOK  RBBPESS. HEX LOCATTON(00002A8C) IN CSECT(I7820 ) LENGTH (2) 990 SENS1 ADDRESS, HEX LOCATION (000028F4) IN CSECT(I7820 ) LENGTH(4) 
1353 INTRX ADDRESS, HEX LOCATION(OOO02ABC) IN CSECT(I7820 ) LENGTH(2) 833 SKDCB ADDRESS. HEX LOCATION(00002824) IN CSECT(I7820 ) LENGTH(2) 
1334 INT ABBRESS, ,HEX, LOCATION (00002494) IN CSECT(I7820 ) LENGTH (2) 687 START ABSOLUTE. HEX VALUE (00000008) 
1339 INTR2 ADDRESS. HEX LOCATION (00002AA2) IN CSECT(I7820 ) LENGTH({1) 104 SUPSTAT jABDRESS. HEX LOCATION (000019C4) IN CSECT(I7820 ) LENGTH(1) 
1347 INTR3 ADDRESS. HEX LOCATION(00002AB0) IN CSECT(I7820 ) LENGTH(2) 92 TUMSGWTR ADDRESS. HEX LOCATION (000018BA) IN CSECT(I7820 ) LENGTH (1) 
1385 TOBLK ADDRESS. HEX LOCATION (O0002AF4) IN CSECT(I7820 ) LENGTH (2) 98 TURESUL ADDRESS. HEX LOCATION(000018C8) IN CSECT(I7820 ) LENGTH(1) 
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